perm filename RDRM[LK,LCS] blob
sn#159125 filedate 1975-05-16 generic text, type T, neo UTF8
00100 SRATE←20000;MAG←512/SRATE;RCDFLG←-1;
00150 REVINIT←1;R←0;
00200
00300 < ZDRM .DAT -- RANDOM NUMBER= 3
00400 PLAY;REV 0 20.5;REVINIT=0;
05300 FM 0.000 0.283 129.008 1000.000 F12 F11 0.000 6.692 82.007 F3
05400 F11 0.337
05500 ;PRINT(P1);< FM 1
05600 FM 0.283 0.272 176.246 1000.000 F12 F11 0.000 5.052 120.099 F3
05700 F11 0.515
05800 ;PRINT(P1);< FM 2
05900 FM 0.555 0.132 124.211 1000.000 F12 F11 0.000 7.168 84.641 F3
06000 F11
06100 ;PRINT(P1);< FM 3
06200 FM 0.687 0.292 184.646 1000.000 F12 F11 0.000 4.822 125.823 F3
06300 F11
06400 ;PRINT(P1);< FM 4
06500 FM 0.979 0.294 185.303 1000.000 F12 F11 0.000 4.805 126.271 F3
06600 F11
06700 ;PRINT(P1);< FM 5
06800 FM 1.273 0.142 176.586 1000.000 F12 F11 0.000 5.042 120.331 F3
06900 F11
07000 ;PRINT(P1);< FM 6
07100 FM2 1.415 0.250 78.372 1000.000 F12 F11 0.000 11.361 53.405 F3
07200 F11
07300 ;PRINT(P1);< FM2 7
07400 FM 1.721 0.316 185.070 1000.000 F12 F11 0.000 4.811 126.112 F3
07500 F11
07600 ;PRINT(P1);< FM 8
07700 FM2 2.037 0.250 207.842 1000.000 F12 F11 0.000 4.284 141.630 F3
07800 F11
07900 ;PRINT(P1);< FM2 9
08000 FM 2.344 0.283 184.213 1000.000 F12 F11 0.000 4.834 125.528 F3
08100 F11
08200 ;PRINT(P1);< FM 10
08300 FM2 2.627 0.250 253.690 1000.000 F12 F11 0.000 3.510 172.872 F3
08400 F11
08500 ;PRINT(P1);< FM2 11
08600 FM 2.874 0.203 124.380 1000.000 F12 F11 0.000 7.159 84.756 F3
08700 F11
08800 ;PRINT(P1);< FM 12
08900 FM 3.077 0.182 123.824 1000.000 F12 F11 0.000 7.191 84.377 F3
09000 F11
09100 ;PRINT(P1);< FM 13
09200 FM 3.259 0.258 125.332 1000.000 F12 F11 0.000 7.104 85.405 F3
09300 F11
09400 ;PRINT(P1);< FM 14
09500 FM 4.617 0.107 128.387 1000.000 F12 F11 0.000 6.662 81.746 F3
09600 F11 0.374
09700 ;PRINT(P1);< FM 16
09800 FM2 4.724 0.250 71.621 1000.000 F12 F11 0.000 11.942 45.602 F3
09900 F11
10000 ;PRINT(P1);< FM2 17
10100 FM 4.911 0.099 129.818 1000.000 F12 F11 0.000 6.589 82.657 F3
10200 F11
10300 ;PRINT(P1);< FM 18
10400 FM 5.010 0.104 175.069 1000.000 F12 F11 0.000 4.886 111.469 F3
10500 F11
10600 ;PRINT(P1);< FM 19
10700 FM 5.114 0.400 123.269 1000.000 F12 F11 0.000 6.939 78.487 F3
10800 F11
10900 ;PRINT(P1);< FM 20
11000 FM 5.678 0.208 123.161 1000.000 F12 F11 0.000 6.945 78.418 F3
11100 F11
11200 ;PRINT(P1);< FM 21
11300 FM 5.886 0.236 127.284 1000.000 F12 F11 0.000 6.720 81.043 F3
11400 F11
11500 ;PRINT(P1);< FM 22
11600 FM 6.122 0.314 129.188 1000.000 F12 F11 0.000 6.621 82.255 F3
11700 F11
11800 ;PRINT(P1);< FM 23
11900 FM 6.436 0.135 126.537 1000.000 F12 F11 0.000 6.760 80.568 F3
12000 F11
12100 ;PRINT(P1);< FM 24
12200 FM 6.571 0.400 183.298 1000.000 F12 F11 0.000 4.666 116.708 F3
12300 F11
12400 ;PRINT(P1);< FM 25
12500 FM 7.435 0.400 184.786 1000.000 F12 F11 0.000 4.629 117.656 F3
12600 F11
12700 ;PRINT(P1);< FM 26
12800 FM2 7.973 0.250 221.600 1000.000 F12 F11 0.000 3.860 141.096 F3
12900 F11
13000 ;PRINT(P1);< FM2 27
13100 FM 8.113 0.139 182.803 1000.000 F12 F11 0.000 4.679 116.393 F3
13200 F11
13300 ;PRINT(P1);< FM 28
13400 FM 8.252 0.255 127.058 1000.000 F12 F11 0.000 6.732 80.899 F3
13500 F11
13600 ;PRINT(P1);< FM 29
13700 FM2 9.257 0.250 79.621 1000.000 F12 F11 0.000 11.124 51.714 F3
13800 F11 0.136
13900 ;PRINT(P1);< FM2 31
14000 FM 9.534 0.287 129.036 1000.000 F12 F11 0.000 6.864 83.809 F3
14100 F11
14200 ;PRINT(P1);< FM 32
14300 FM 9.821 0.270 184.791 1000.000 F12 F11 0.000 4.793 120.022 F3
14400 F11
14500 ;PRINT(P1);< FM 33
14600 FM 10.091 0.239 185.526 1000.000 F12 F11 0.000 4.774 120.499 F3
14700 F11
14800 ;PRINT(P1);< FM 34
14900 FM2 10.330 0.250 207.313 1000.000 F12 F11 0.000 4.272 134.650 F3
15000 F11
15100 ;PRINT(P1);< FM2 35
15200 FM 10.633 0.400 181.840 1000.000 F12 F11 0.000 4.871 118.105 F3
15300 F11
15400 ;PRINT(P1);< FM 36
15500 FM2 11.140 0.250 75.907 1000.000 F12 F11 0.000 11.669 49.302 F3
15600 F11
15700 ;PRINT(P1);< FM2 37
15800 FM 11.490 0.310 176.343 1000.000 F12 F11 0.000 5.023 114.534 F3
15900 F11
16000 ;PRINT(P1);< FM 38
16100 FM 11.800 0.207 126.955 1000.000 F12 F11 0.000 6.977 82.457 F3
16200 F11
16300 ;PRINT(P1);< FM 39
16400 FM 12.007 0.211 185.852 1000.000 F12 F11 0.000 4.766 120.711 F3
16500 F11
16600 ;PRINT(P1);< FM 40
16700 FM 12.218 0.217 183.222 1000.000 F12 F11 0.000 4.834 119.002 F3
16800 F11
16900 ;PRINT(P1);< FM 41
17000 FM 12.435 0.144 123.137 1000.000 F12 F11 0.000 7.193 79.977 F3
17100 F11
17200 ;PRINT(P1);< FM 42
17300 FM 12.579 0.156 129.439 1000.000 F12 F11 0.000 6.843 84.071 F3
17400 F11
17500 ;PRINT(P1);< FM 43
17600 FM 12.735 0.140 126.512 1000.000 F12 F11 0.000 7.001 82.170 F3
17700 F11
17800 ;PRINT(P1);< FM 44
17900 FM 12.875 0.349 181.369 1000.000 F12 F11 0.000 4.884 117.799 F3
18000 F11
18100 ;PRINT(P1);< FM 45
18200 FM 13.224 0.400 182.155 1000.000 F12 F11 0.000 4.863 118.310 F3
18300 F11
18400 ;PRINT(P1);< FM 46
18500 FM2 13.741 0.250 256.089 1000.000 F12 F11 0.000 3.459 166.329 F3
18600 F11
18700 ;PRINT(P1);< FM2 47
18800 FM 14.226 0.161 122.345 1000.000 F12 F11 0.000 7.240 79.463 F3
18900 F11
19000 ;PRINT(P1);< FM 48
19100 FM2 14.387 0.250 218.067 1000.000 F12 F11 0.000 4.062 141.634 F3
19200 F11
19300 ;PRINT(P1);< FM2 49
19400 FM 15.734 0.161 184.571 1000.000 F12 F11 0.000 4.659 126.767 F3
19500 F11 0.665
19600 ;PRINT(P1);< FM 51
19700 FM 15.895 0.400 178.344 1000.000 F12 F11 0.000 4.821 122.490 F3
19800 F11
19900 ;PRINT(P1);< FM 52
20000 FM 16.445 0.118 125.333 1000.000 F12 F11 0.000 6.860 86.081 F3
20100 F11
20200 ;PRINT(P1);< FM 53
20300 FM 16.563 0.158 124.240 1000.000 F12 F11 0.000 6.921 85.330 F3
20400 F11
20500 ;PRINT(P1);< FM 54
20600 FM 16.721 0.400 183.163 1000.000 F12 F11 0.000 4.694 125.800 F3
20700 F11
20800 ;PRINT(P1);< FM 55
20900 FM2 17.311 0.249 72.208 1000.000 F12 F11 0.000 11.908 49.594 F3
21000 F11
21100 ;PRINT(P1);< FM2 56
21200 FM 17.434 0.164 180.030 1000.000 F12 F11 0.000 4.776 123.648 F3
21300 F11
21400 ;PRINT(P1);< FM 57
21500 FM 17.598 0.400 184.484 1000.000 F12 F11 0.000 4.661 126.707 F3
21600 F11
21700 ;PRINT(P1);< FM 58
21800 FM2 18.179 0.252 208.712 1000.000 F12 F11 0.000 4.120 143.347 F3
21900 F11
22000 ;PRINT(P1);< FM2 59
22100 FM 18.272 0.091 180.498 1000.000 F12 F11 0.000 4.764 123.969 F3
22200 F11
22300 ;PRINT(P1);< FM 60
22400 FM 18.363 0.199 185.958 1000.000 F12 F11 0.000 4.624 127.719 F3
22500 F11
22600 ;PRINT(P1);< FM 61
22700 FM 18.562 0.089 179.276 1000.000 F12 F11 0.000 4.796 123.130 F3
22800 F11
22900 ;PRINT(P1);< FM 62
23000 FM 18.651 0.363 177.562 1000.000 F12 F11 0.000 4.842 121.953 F3
23100 F11
23200 ;PRINT(P1);< FM 63
23300 FINISH; < ZDRM .DAT